Libris Britannia 4

home *** CD-ROM | disk | FTP | other *** search

/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / VISUAL_B / H441.ZIP / VXBTEST.ZIP / VXFORM2.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1993-05-06 | 12KB | 268 lines

VXFORM2 Aircraft Types Form3% TypeStatus TypeExit E&xit TypeBrowse &Browse TypePrev &Previous TypeNext &Next TypeDelete &Delete TypeAdd TypeCancel &Cancel TypeSave &Save TypeDesc TypeCode Label3 Status MS Serif Label2 Description MS Serif Label1 Type Code MS Serif Form_Load vxSelectDbfa AirtypesDbf Form2Active TypeReturn BROWSE_ADD TypeDataClear TypeStatusm TypeSave EnabledJ TypeCancel: TypeAddy FALSEU TypeDelete BROWSE_EDIT TypeDataLoad vxRecNo TypeCode TypeDesc vxUnlockd CursorWait vxField CursorArrow TypeCode_KeyPress KeyAsciis TypeSave_Click SeekKey EmptyString vxSeek vxAppendBlank vxReplString vxWrite: TypeAdd_Click TypeBrowse_Click VXFORM2 Visible BROWSE_USER3 BrowseTypes TypeCancel_Click TypeDelete_Click& vxLockRecord vxDeleteRec TypeExit_Click? TypeNext_ClickZ vxSkip TypeNext TypePrev TypeBrowseQ vxEof vxDeleted vxBottomx TypePrev_Click vxBofc vxTop TypeCode_GotFocus vxCtlLength4 TypeDesc_GotFocus Form_Unload Cancel vxClose vxWindowDereg VXFORM1 OpenTypesW OpenCust PackFiles TestCreate$ TestCopy TestDataCopy TypeDesc_KeyPresst Form_Paintf vxFormFrame vxCtlStyle VX_RECESS VX_RAISE BROWSE_DELETE vxCtlFormat VX_UPPER vxUseDbf vxPictureImport vxPictureRead PicBox Picture ClipBoard Form_Load On form load analyze results of browse return ALWAYS select the database as the first statement in the FORM_LOAD procedure. This registers thee select area with the vxBase System Task manager. You MUST also select the database as the firstr statement in the FORM_PAINT procedure. This registers the select area with the vxBase Taskr Window manager. If you do these two things, vxBase will ensure smooth multiwindow operation in the task, and also smooth multitasking operation if you wish to run more than one Visual Basic vxBase program at the same time (or multiple instances of the same Visual Basic vxBase program.e Record addition request if user pressed ENTER then file is positioned at current record and the record number isn returned in TypeReturn. In this case we assume he wants to edit that record. call general proc to load controls- Edit record Form_Paint ALWAYS select the database as the first statement in the FORM_LOAD procedure. This registers thee select area with the vxBase System Task manager. You MUST also select the database as the firstr statement in the FORM_PAINT procedure. This registers the select area with the vxBase Taskr Window manager. If you do these two things, vxBase will ensure smooth multiwindow operation in the task, and also smooth multitasking operation if you wish to run more than one Visual Basic vxBase program at the same time (or multiple instances of the same Visual Basic vxBase program.e paint three dimensional controls- if delete request from browse, do it now- because we must let enhanced controls paint before asking for delete confirmation Form_Unload close types file and reset table and reenable menu items if we're NOT being unloaded by the Browse button IT IS IMPORTANT THAT YOU DEREGISTER THE WINDOW THAT THE FILE SELECT AREA WAS ATTACHED TO IN THE FORM_UNLOAD PROC. IF YOU DON'T, YOU ARE LIABLE TO RUN OUT OFO TASK-WINDOW ENTRIES (96 in all are allowed) If BrowseTypes is invoked by clicking the Browse- button on the edit form, we don't want to close the files. If we get here for any other reasone (like picking the exit button on the form oro using the System menu to close the window) then we close the files, release the table memory, and reshow the menu form so the user can pick something else. TypeAdd_Click clear form for addition of new record Record Addition Request ensure data entry enabled reset the buttons TypeBrowse_Click current form is unloaded because if needed again the form_load proc must be invoked to reset the control datad so we don't close files when we unload the form TypeCancel_Click Clear form data and reset button status Operation cancelled we must disable data entry because the user could enter a new record in the blank boxes and then press the Add button. The TypeAdd_Click routine clears the form boxes again prior tol accepting input so the user's work would be lost and he would be mad.h TypeCode_GotFocus set up text length limit Call vxCtlLength("category")) TypeCode_KeyPress Convert type code to uppercase as it is being entered also convert enter key to tab C$ = Chr$(KeyAscii) C$ = UCase$(C$) KeyAscii = Asc(C$)) If KeyAscii = 13 Then KeyAscii = 0= SendKeys "{Tab}" End Iff TypeDataClear Clear Form in preparation for add or after successful delete ensure database unlocked- TypeDataLoad Load data from current record ensure data entry enabled category catname unlock for multiusers In a multiuser or multitasking environment, the file- should be unlocked after you have extracted the data- you are interested in. See the "MultiTasking andd MultiUser Considerations" section in the manual for a full discussion.a TypeDelete_Click get user confirmation of delete Confirm Delete Deleted Delete failed Delete cancelled TypeDesc_GotFocus set up text length limit catname TypeDesc_KeyPress convert ENTER to tab- {Tab} TypeExit_Click unloading the form performs cleanup for us TypeNext_Click skip forward one record if skip error, only allow exit- Error on Skip Next. Try Reindex. test for end of file End of File! Skipped to record TypePrev_Click skip back one record if skip error, only allow exit Error on Skip Previous. Try Reindex. test for beginning of filer Beginning of File! Skipped to record TypeSave_Click Validate data when save button is pressed verify something in the field Field cannot be empty note that if this was a real application we wouldn't- allow a change to the type code if the record was being edited unless we were prepared to cross reference all of the other files affected by a change. We alsoe wouldn't allow the onscreen edit in the browse. This is just a sample application.n verify unique key if adding Duplicate Key on Add Data passed. Put it away notice the brackets around the control property below which gets at the data contained thereiny category catname Update status box Record appended Record saved Update Button Status ensure database unlockedd